home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS - Geos #005 (19xx)(-).d64 / geolist2.1.arc / ÇeoList 2.1FF (.txt) next >
GEOS ConVerT  |  2019-04-13  |  8KB  |  310 lines
  1. eoList 2.1FF
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4. RT 1.1
  5. eoList 2.1LF
  6. GeoList 2.1FF
  7. Sellers/Davis/Shafer
  8. Update by Gale Shafer for KX-P1091...  uses FF - Form Feed instead of LF
  9. *******************************
  10. **       GEOLIST 2.1FF      ***
  11. ** MODIFIED VERSION OF      ***
  12. ** GEOLIST V0.9 FROM MIKE   ***
  13. ** SELLERS (MIK55)...       ***
  14. ** MODIFIED BY BILL DAVIS   ***
  15. **   (REBASAK)  10/10/87    ***
  16. ** MODIFIED BY GALE SHAFER  ***
  17. **   (GALES)    11/23/87    ***
  18. *******************************
  19. (27)"@"
  20. (27)"
  21.  ***RESET PRINTER -ELITE
  22.  644,128:
  23.  56,126:
  24.  G1$(16),G2$(3),X1(5),X1$(5),NU$(99)
  25. (147)
  26.  GET GEOS DATE & TIME----------
  27. 34069
  28. 5:X1(I)
  29. X1$(I)
  30. (X1(I)):X1$(I)
  31. (X1$(I),2)
  32. (X1$(3),1) :X3$
  33. (X1$(3),1)
  34. X1$(3)
  35. X1$(2)
  36. X1$(3)
  37. X1$(1)
  38. (X1$(5),1) :X3$
  39. (X1$(5),1)
  40. X1$(5)
  41. X1$(4)
  42. X1$(5)
  43. (X6$,1) :XA$
  44. (X6$,1)
  45.  X1(2)
  46. X1(2)
  47. "        ":X5$
  48. "     "
  49.  INITIALIZE -------------------
  50. 66:OF
  51. 60:LN
  52.  PAGING-
  53. FT$(I):
  54. G2$(I):
  55. G1$(I):
  56. 79:LN$
  57. NU$(I)
  58. (I),2)
  59. BL$(I)
  60. (I),1)
  61. NU$(I)
  62. BL$(I):BL$(I)
  63. BL$(I)
  64. AME        
  65. YPE        
  66. ATE    
  67. IME   
  68.   RESTART POINT ---------------
  69. "":ID$
  70. "":FT$
  71. "":TF
  72. 0:EOI
  73. (147)
  74. IST 2.1
  75.  - 1541"
  76. NSERT 
  77.  DISK IN DRIVE"
  78. 8)"PRESS "
  79. (18)"RETURN"
  80. (146)" TO CONTINUE,"
  81. 10)"  OR  "
  82. (18)"F7"
  83. (146)" TO CANCEL  "
  84. (136)
  85. 4620 :
  86.  CANCEL
  87. 7,4,7:
  88.  STATUS
  89. (18)"
  90. (146)
  91. 5000:
  92. (17):
  93. (5)"PROCESSING..."
  94. 15,8,15:
  95. 15,"I0":
  96. 15,EN$,EM$,ET$,ES$:
  97. (17):
  98. EN$", "EM$", "ET$", "ES$
  99.  *** BLOCKS FREE --------------
  100. 15,"M-R"
  101. (250)
  102. #15,B$:L
  103. #15,B$:
  104. #15,B$:H
  105. (0)):BF
  106. 3,8,3,"$0,P,R"
  107.  781,3:
  108. 65478
  109. B$:DOS
  110. 5140:DN$
  111. 5140:ID$
  112. B$:OT
  113. NU$(OT)
  114. B$:OS
  115. NU$(OS)
  116. 5140 :GF$
  117. B$:B1
  118. ISK    "
  119. ISK    "
  120. PPLICATION  "
  121. ISK":GF$
  122. "                "
  123. 65484
  124. 7,4,7:
  125. 2760:
  126.  PRINT HEADINGS ---------------
  127. 1 :LN
  128. 7,"                                
  129. IST 2.1
  130. : "DN$"   
  131. : "ID$"       "X4$"   "X5$"   
  132. AGE: "PG
  133. 7,B2$" "GF$"   
  134. RITE 
  135. ROTECT "DP$"   
  136. LOCKS 
  137. REE:"BF:
  138. 7,HD$
  139. 7,LN$ :
  140.  GET DOS FILE TYPE ------------
  141.  781,3:
  142. 65478
  143. B$:FT
  144. (0)):FT$
  145. FT$(7
  146.  GET FILE NAME ----------------
  147. 5140 
  148.  GET TRACK & SECTOR -----------
  149.  GET GEOS FILE STRUCTURE ------
  150. B$:G2
  151. G2$(G2)
  152.  GET GEOS FILE TYPE -----------
  153. B$:G1
  154. G1$(G1)
  155.  GET YEAR/MONTH/DAY -----------
  156. B$:D1
  157. (0)):
  158. B$:D2
  159. (0)):
  160. B$:D3
  161. (0)):
  162.  GET HOUR/MINUTES -------------
  163. B$:D4
  164. (0)):
  165. B$:D5
  166. (0)):
  167.  PROGRAM SIZE -----------------
  168. B$:D6
  169. (0)):
  170. 65484
  171.  CONVERT TIME TO 12 HOUR AM/PM
  172. 12:AP$
  173.  PROGRAM SIZE IN K BYTES ------
  174. (D6) :BK$
  175. (BK$,3) :
  176.  TOTAL BLOCKS
  177. ":D6$
  178. (D6$,3)
  179. (D6$)
  180.  NUMBER OF FILES -----
  181. EOS      "
  182. 7,4,7:
  183. NU$(D2)
  184. NU$(D3)
  185. NU$(D1)
  186. NU$(D4)
  187. NU$(D5)
  188.  DT/TM
  189. NU$(T):S$
  190. NU$(S):
  191.  TRACK/SEC
  192.  GET GEOS VERSION NUMBER ------
  193.  6,8,6,"#":
  194. 15,"U1";6;0;T;S:
  195. 15,"B-P";6;89
  196.  781,6:
  197. 65478
  198. 5160 
  199. " " :
  200. 4080 
  201. (G3$,4):
  202. 65484
  203. (V$,1):
  204. "    "
  205. 7,4,7
  206.  GEOS FILES -------------------
  207. 7,D6$"  "F$" "V$" "FT$" "G1$" "M0$" "G2$"  "T$" "S$" "BK$:
  208.  NON-GEOS FILES ---------------
  209. 7,D6$"  "F$"      "FT$" "G1$"                              "BK$
  210. 5620  :
  211.  781,3:
  212. 65478
  213. 5340:
  214. 15,EN$,EM$,ET$,ES$:
  215. 65484:
  216. 7,4,7
  217.  USED & FREE BYTES ------------
  218. 4): KT
  219. 4520 
  220. TK:TK
  221. TK:TK$
  222. (TK):TF$
  223. (TF):UK$
  224. 7,UK$" 
  225. YTES 
  226. SED  "TK$" 
  227. YTES 
  228. REE   165 
  229. YTES 
  230. OTAL"
  231. OTAL 
  232. UMBER OF 
  233. ILES:"TF$"    
  234. OTAL 
  235. LOCKS 
  236. SED: "T6
  237. 5620 
  238.  CLOSE PRINTER
  239. NOTHER DISK? (Y/N)"
  240. 198,0:
  241. 198,1:
  242. 5680 :
  243.  QUIT
  244.  *** FILE TYPES ***************
  245.  DEL,SEQ,PRG,USR,REL,???
  246.  *** GEOS FILE STRUCTURES *****
  247. ","UNKN"
  248.  *** GEOS FILE TYPES **********
  249. EOS      "
  250. ASIC 
  251. ROGRAM "
  252. SSEMBLY 
  253. ROG "
  254. ILE     "
  255. YSTEM 
  256. ILE   "
  257. CCESSORY"
  258. PPLICATION   "
  259. PPL. 
  260. ATA    "
  261. ILE     "
  262. RINTER 
  263. RIVER"
  264. NPUT 
  265. RIVER  "
  266. RIVER   "
  267. YSTEM 
  268. OOT   "
  269. EMPORARY     "
  270. XECUTE  "
  271.  "UNKNOWN       "
  272.  *** GET A BYTE ***************
  273.  FILES ON DESKTOP BORDER ------
  274. 65484:
  275. 7,4,7
  276. (13)". . . . . . 
  277. ILES ON 
  278. ESKTOP 
  279. ORDER . . . . . .";
  280. 7," . . . . . . . . . . . "OT$" "OS$;
  281.  IS THERE A BORDER? -----------
  282. 4400 
  283. 4400 
  284. 3,8,3,"#"
  285. 15,"U1:"3;0;OT;OS:
  286. 15,"B-P:3,2"
  287.  ------------------------------
  288. 65484:
  289. 7,4,7
  290. (13)". . . . . . 
  291. ILES ON THE 
  292. ORDER. . . . . . .";
  293. 7," . . . . . . . . . . . "OT$" "OS$;
  294.  NOT GEOS DISK NO BORDER-------
  295.  FINISH PAGE ------------------
  296. (7);:
  297.  *** FF AND BEL ***
  298.  END PROGRAM & RETURN TO GEOS *
  299. RESS "
  300. (18)"
  301. (146)" TO RETURN TO 
  302. ASIC OR"
  303. NSERT 
  304. ISK IN DRIVE 8"
  305. "AND PRESS "
  306. (18)"
  307. ETURN"
  308. (146)" TO RETURN TO 
  309. 49152:
  310.